home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 041-050 / amok41 / spiele / mastermind / txt / linksimg.mod < prev    next >
Text File  |  1993-11-04  |  5KB  |  208 lines
  1. (*********************************************************************
  2.  *
  3.  *  :Program.        Image für Mastermind
  4.  *  :Author.        Hans Schafft
  5.  *  :Address.        Landfriedstraße 1A - Hinterhaus
  6.  *  :Address.        6900 Heidelberg
  7.  *  :Phone.        06221 - 22416
  8.  *  :Version.        1.0
  9.  *  :Date.        1989
  10.  *  :Copyright.        PD
  11.  *  :Language.        Modula-II
  12.  *  :Translator.    M2Amiga
  13.  *
  14.  *********************************************************************)
  15. (*     Um die PfeilImages einzubinden habe ich IFFRToCode von AMOK #3  *)
  16. (*    benutzt. Dem Autor Pit Burkhardt auf diesem Wege vielen Dank !  *)
  17. (************************************************************************)
  18.  
  19. IMPLEMENTATION MODULE LinksImg;
  20.  
  21. FROM SYSTEM    IMPORT    WORD;
  22. FROM Heap    IMPORT    AllocMem;
  23.  
  24. BEGIN
  25.   AllocMem(LinksImgPtr,SIZE(LinksImgPtr^),TRUE);
  26.  
  27.   WITH LinksImage DO
  28.     leftEdge := 0;
  29.     topEdge := 0;
  30.     width := 8;
  31.     height:= 39;
  32.     depth :=  4;
  33.     imageData := LinksImgPtr;
  34.     planePick := 0FFH;
  35.     planeOnOff := 0H;
  36.     nextImage := NIL;
  37.   END;
  38.  
  39.  
  40. WITH LinksImgPtr^ DO         (* links *)
  41.  
  42.   (* Plane 1 *)
  43.  Dat[ 0]:=00000H;(* 1*)
  44.  Dat[ 1]:=07F00H;(* 2*)
  45.  Dat[ 2]:=07F00H;(* 3*)
  46.  Dat[ 3]:=07F00H;(* 4*)
  47.  Dat[ 4]:=07F00H;(* 5*)
  48.  Dat[ 5]:=07F00H;(* 6*)
  49.  Dat[ 6]:=07C00H;(* 7*)
  50.  Dat[ 7]:=07C00H;(* 8*)
  51.  Dat[ 8]:=07C00H;(* 9*)
  52.  Dat[ 9]:=07C00H;(*10*)
  53.  Dat[10]:=07C00H;(*11*)
  54.  Dat[11]:=07C00H;(*12*)
  55.  Dat[12]:=07C00H;(*13*)
  56.  Dat[13]:=07C00H;(*14*)
  57.  Dat[14]:=07C00H;(*15*)
  58.  Dat[15]:=07C00H;(*16*)
  59.  Dat[16]:=07C00H;(*17*)
  60.  Dat[17]:=07C00H;(*18*)
  61.  Dat[18]:=07C00H;(*19*)
  62.  Dat[19]:=07C00H;(*20*)
  63.  Dat[20]:=07C00H;(*21*)
  64.  Dat[21]:=07C00H;(*22*)
  65.  Dat[22]:=07C00H;(*23*)
  66.  Dat[23]:=07C00H;(*24*)
  67.  Dat[24]:=07C00H;(*25*)
  68.  Dat[25]:=07C00H;(*26*)
  69.  Dat[26]:=07C00H;(*27*)
  70.  Dat[27]:=07C00H;(*28*)
  71.  Dat[28]:=07C00H;(*29*)
  72.  Dat[29]:=07C00H;(*30*)
  73.  Dat[30]:=07C00H;(*31*)
  74.  Dat[31]:=07C00H;(*32*)
  75.  Dat[32]:=07C00H;(*33*)
  76.  Dat[33]:=07F00H;(*34*)
  77.  Dat[34]:=07F00H;(*35*)
  78.  Dat[35]:=07F00H;(*36*)
  79.  Dat[36]:=07F00H;(*37*)
  80.  Dat[37]:=07F00H;(*38*)
  81.  Dat[38]:=00000H;(*39*)
  82.  
  83.   (* Plane 2 *)
  84.  Dat[39]:=00000H;(* 1*)
  85.  Dat[40]:=04000H;(* 2*)
  86.  Dat[41]:=06000H;(* 3*)
  87.  Dat[42]:=07000H;(* 4*)
  88.  Dat[43]:=07800H;(* 5*)
  89.  Dat[44]:=07C00H;(* 6*)
  90.  Dat[45]:=07F00H;(* 7*)
  91.  Dat[46]:=07F00H;(* 8*)
  92.  Dat[47]:=07F00H;(* 9*)
  93.  Dat[48]:=07F00H;(*10*)
  94.  Dat[49]:=07F00H;(*11*)
  95.  Dat[50]:=07F00H;(*12*)
  96.  Dat[51]:=07F00H;(*13*)
  97.  Dat[52]:=07F00H;(*14*)
  98.  Dat[53]:=07F00H;(*15*)
  99.  Dat[54]:=07F00H;(*16*)
  100.  Dat[55]:=07F00H;(*17*)
  101.  Dat[56]:=07F00H;(*18*)
  102.  Dat[57]:=07F00H;(*19*)
  103.  Dat[58]:=07F00H;(*20*)
  104.  Dat[59]:=07F00H;(*21*)
  105.  Dat[60]:=07F00H;(*22*)
  106.  Dat[61]:=07F00H;(*23*)
  107.  Dat[62]:=07F00H;(*24*)
  108.  Dat[63]:=07F00H;(*25*)
  109.  Dat[64]:=07F00H;(*26*)
  110.  Dat[65]:=07F00H;(*27*)
  111.  Dat[66]:=07F00H;(*28*)
  112.  Dat[67]:=07F00H;(*29*)
  113.  Dat[68]:=07F00H;(*30*)
  114.  Dat[69]:=07F00H;(*31*)
  115.  Dat[70]:=07F00H;(*32*)
  116.  Dat[71]:=07F00H;(*33*)
  117.  Dat[72]:=07C00H;(*34*)
  118.  Dat[73]:=07800H;(*35*)
  119.  Dat[74]:=07000H;(*36*)
  120.  Dat[75]:=06000H;(*37*)
  121.  Dat[76]:=04000H;(*38*)
  122.  Dat[77]:=00000H;(*39*)
  123.  
  124.   (* Plane 3 *)
  125.  Dat[78]:=00000H;(* 1*)
  126.  Dat[79]:=03F00H;(* 2*)
  127.  Dat[80]:=01F00H;(* 3*)
  128.  Dat[81]:=00F00H;(* 4*)
  129.  Dat[82]:=00700H;(* 5*)
  130.  Dat[83]:=00300H;(* 6*)
  131.  Dat[84]:=00000H;(* 7*)
  132.  Dat[85]:=00000H;(* 8*)
  133.  Dat[86]:=00000H;(* 9*)
  134.  Dat[87]:=00000H;(*10*)
  135.  Dat[88]:=00000H;(*11*)
  136.  Dat[89]:=00000H;(*12*)
  137.  Dat[90]:=00000H;(*13*)
  138.  Dat[91]:=00000H;(*14*)
  139.  Dat[92]:=00000H;(*15*)
  140.  Dat[93]:=00000H;(*16*)
  141.  Dat[94]:=00000H;(*17*)
  142.  Dat[95]:=00000H;(*18*)
  143.  Dat[96]:=00000H;(*19*)
  144.  Dat[97]:=00000H;(*20*)
  145.  Dat[98]:=00000H;(*21*)
  146.  Dat[99]:=00000H;(*22*)
  147.  Dat[100]:=00000H;(*23*)
  148.  Dat[101]:=00000H;(*24*)
  149.  Dat[102]:=00000H;(*25*)
  150.  Dat[103]:=00000H;(*26*)
  151.  Dat[104]:=00000H;(*27*)
  152.  Dat[105]:=00000H;(*28*)
  153.  Dat[106]:=00000H;(*29*)
  154.  Dat[107]:=00000H;(*30*)
  155.  Dat[108]:=00000H;(*31*)
  156.  Dat[109]:=00000H;(*32*)
  157.  Dat[110]:=00000H;(*33*)
  158.  Dat[111]:=00300H;(*34*)
  159.  Dat[112]:=00700H;(*35*)
  160.  Dat[113]:=00F00H;(*36*)
  161.  Dat[114]:=01F00H;(*37*)
  162.  Dat[115]:=03F00H;(*38*)
  163.  Dat[116]:=00000H;(*39*)
  164.  
  165.   (* Plane 4 *)
  166.  Dat[117]:=00000H;(* 1*)
  167.  Dat[118]:=07F00H;(* 2*)
  168.  Dat[119]:=07F00H;(* 3*)
  169.  Dat[120]:=07F00H;(* 4*)
  170.  Dat[121]:=07F00H;(* 5*)
  171.  Dat[122]:=07F00H;(* 6*)
  172.  Dat[123]:=07C00H;(* 7*)
  173.  Dat[124]:=07C00H;(* 8*)
  174.  Dat[125]:=07C00H;(* 9*)
  175.  Dat[126]:=07C00H;(*10*)
  176.  Dat[127]:=07C00H;(*11*)
  177.  Dat[128]:=07C00H;(*12*)
  178.  Dat[129]:=07C00H;(*13*)
  179.  Dat[130]:=07C00H;(*14*)
  180.  Dat[131]:=07C00H;(*15*)
  181.  Dat[132]:=07C00H;(*16*)
  182.  Dat[133]:=07C00H;(*17*)
  183.  Dat[134]:=07C00H;(*18*)
  184.  Dat[135]:=07C00H;(*19*)
  185.  Dat[136]:=07C00H;(*20*)
  186.  Dat[137]:=07C00H;(*21*)
  187.  Dat[138]:=07C00H;(*22*)
  188.  Dat[139]:=07C00H;(*23*)
  189.  Dat[140]:=07C00H;(*24*)
  190.  Dat[141]:=07C00H;(*25*)
  191.  Dat[142]:=07C00H;(*26*)
  192.  Dat[143]:=07C00H;(*27*)
  193.  Dat[144]:=07C00H;(*28*)
  194.  Dat[145]:=07C00H;(*29*)
  195.  Dat[146]:=07C00H;(*30*)
  196.  Dat[147]:=07C00H;(*31*)
  197.  Dat[148]:=07C00H;(*32*)
  198.  Dat[149]:=07C00H;(*33*)
  199.  Dat[150]:=07F00H;(*34*)
  200.  Dat[151]:=07F00H;(*35*)
  201.  Dat[152]:=07F00H;(*36*)
  202.  Dat[153]:=07F00H;(*37*)
  203.  Dat[154]:=07F00H;(*38*)
  204.  Dat[155]:=00000H;(*39*)
  205.  
  206. END;
  207. END LinksImg.
  208.